home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / dt_syc12.zip / 2.PPS < prev    next >
Text File  |  1994-05-03  |  2KB  |  68 lines
  1. INTEGER COUNT
  2. STRING CMDLINE, PWRD, CONNI
  3. STRING DATA(20)
  4. CMDLINE=TOKENSTR()
  5.  
  6. :INIT
  7.   IF (!EXIST (PPEPATH()+"PASSWRDS.DAT")) DO    ' IF THE FiLE PASSWRDS.DAT
  8.     NEWLINE                    ' DOESN'T EXiST ...
  9.     PRINTLN "@BEEP@@X0CWHAT HAVE U DONE WiTH THE FiLE 'PASSWRDS.DAT' ?"
  10.     PRINT "@X0CiT MUST BE iN THE SAME DiRECTORY WHERE THE SYSCMDS ARE !"
  11.     END
  12.   ENDIF
  13.   COUNT=1
  14.   FOPEN 2,PPEPATH()+"PASSWRDS.DAT",O_RD,S_DN    ' OPENS THE 'PASSWRDS.DAT' 
  15.   WHILE (!FERR(2)) DO                ' READS 'PASSWRDS.DAT'
  16.     FGET 2,data(COUNT)
  17.     IF (data(COUNT)="<EOP>") QUIT        ' UNTiL <EOP>
  18.     INC COUNT
  19.   ENDWHILE
  20.   FCLOSE 2
  21.  
  22.   FOPEN 2,"PCBOARD.SYS",O_RD,S_DN        ' READS THE CONNECT
  23.   FSEEK 2,18,1
  24.   FREAD 2,conni,5
  25.   FCLOSE 2
  26.   IF (UPPER(CONNI)="LOCAL") GOTO NO_CONNECT    ' CHECKS IF iT'S LOCAL CALL
  27.  
  28.   IF (UPPER(cmdline)=UPPER(data(1))) GOTO TOKEN_CORRECT
  29.                         ' CHECKS IF THE COMMANDLiNE
  30.                         ' PWRD WAS ENTERED CORRECT
  31.  
  32.   COUNT = 0
  33. :ON
  34.   PWRD=""
  35.   NEWLINE                    ' INPUT PASSWORD ...
  36.   INPUTSTR "@X0FG@X07i@X08MME FiRST THE PASSWOR@X07D @X0F",PWRD,08h,20,MASK_ASCII(),ECHODOTS
  37.   INC COUNT
  38.  
  39. :CHECK                        ' CHECK FOR IN/CORRECT PWRD
  40.   IF (count=>3) GOTO FUCK_OFF
  41.   IF (UPPER(pwrd)=UPPER(data(1))) GOTO PASSED
  42.   IF (UPPER(pwrd)="") END
  43.   IF (UPPER(pwrd)<>UPPER(data(1))) GOTO FAILED
  44.   GOTO ON
  45.  
  46. :FAILED                        ' IF PWRD NOT OK ...
  47.   NEWLINES 2
  48.   PRINTLN "@X0CWELL ... WHAT NOW ? THAT WASN'T THE RiGHT ONE !"
  49.   GOTO ON
  50.  
  51. :FUCK_OFF                    ' IF PWRD 3rd TiME WRONG ENTERED
  52.   NEWLINES 2
  53.   PRINTLN "@X0CHEJ MAN ! iF YOU DON'T KNOW THE PASSWORD - WHY DO YA TRY !?"
  54.   END
  55.  
  56. :PASSED                        ' IF PWRD = OK GO AWAY ...
  57.   KBDSTUFF "2 "+cmdline+CHR(13)
  58.   NEWLINE
  59.   END
  60.  
  61. :NO_CONNECT                    ' IF LOCAL CALL
  62.   KBDSTUFF "2 "+cmdline+CHR(13)
  63.   END
  64.  
  65. :TOKEN_CORRECT
  66.   KBDSTUFF "2 "+CHR(13)
  67.   END
  68.